home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 November / macformat-096.iso / MF Data / Behaviours / 00008_Script_Rollover Member Change < prev    next >
Encoding:
Text File  |  2000-09-12  |  1.6 KB  |  72 lines
  1. -- DESCRIPTION --
  2.  
  3. on getBehaviorDescription me
  4.   return \
  5.     "ROLLOVER MEMBER CHANGE" & RETURN & RETURN & \
  6.     "Change the sprite's cast member when the mouse rolls over the sprite." & RETURN & RETURN & \
  7.     "PARAMETERS:" & RETURN & \
  8.     "* Rollover cast member"
  9. end getBehaviorDescription
  10.  
  11.  
  12. on getBehaviorTooltip me
  13.   return \
  14.     "Use with graphic members." & RETURN & RETURN & \
  15.     "Swaps a sprite's cast member on rollover."
  16. end getBehaviorTooltip
  17.  
  18.  
  19.  
  20. -- HISTORY --
  21.  
  22. -- 22 October 1998, written for the D7 Behaviors Palette by James Newton
  23. --
  24. -- Modified 7 January, 2000 by T. Higgins to include the isOKToAttach
  25. -- event handler along with removing some redundant error checking.
  26.  
  27.  
  28. property spriteNum
  29. property mySprite
  30. property myStandardMember
  31. property myRollovermember
  32.  
  33.  
  34. on beginSprite me
  35.   mySprite = sprite (me.spriteNum)
  36.   myStandardMember = mySprite.member
  37. end
  38.  
  39.  
  40. on mouseEnter me
  41.   mySprite.member = myRolloverMember
  42. end mouseEnter
  43.  
  44.  
  45. on mouseLeave me
  46.   mySprite.member = myStandardMember
  47. end mouseLeave
  48.  
  49. on isOKToAttach (me, aSpriteType, aSpriteNum)
  50.   case aSpriteType of
  51.     #graphic:
  52.       return TRUE
  53.     #script:
  54.       return FALSE
  55.   end case
  56. end isOKToAttach 
  57.  
  58. on getPropertyDescriptionList
  59.   if the currentSpriteNum = 0 then exit
  60.   theMember = sprite(the currentSpriteNum).member
  61.   theMemberNumber = theMember.number
  62.   
  63.   return \
  64. [ \
  65.  #myRolloverMember: \
  66.  [ \
  67.   #comment: "Display which member on rollover?", \
  68.   #format:  #graphic, \
  69.   #default:  member (theMemberNumber + 1) \
  70.  ] \
  71. ]
  72. end getPropertyDescriptionList